home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh23c.d64
/
2 servos
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
587b
|
25 lines
10 REM **** 2 SERVOS ****
50 DATA 120,162,73,160,3,142,20,3
51 DATA 140,21,3,88,96
52 DATA 169,3,141,3,221,141,1,221
53 DATA 162,0,228,252,208,8
54 DATA 56,233,1,240,18,141,1,221
55 DATA 228,253,208,8
56 DATA 56,233,2,240,6,141,1,221
57 DATA 232,208,229,141,1,221,76,49,234
100 POKE252,65:POKE253,65
110 FOR I=828TO883:READK:POKEI,K:NEXT
120 SYS828:POKE53265,PEEK(53265)AND239
130 P0=65:P1=65
140 IF PEEK(203)=4THENP0=P0+1:GOTO200
150 IF PEEK(203)=5THENP0=P0-1:GOTO200
160 IF PEEK(203)=6THENP1=P1+1:GOTO250
170 IF PEEK(203)=3THENP1=P1-1:GOTO250
190 GOTO140
200 IF P0<40 THENP0=40
210 IF P0>110 THENP0=110
220 POKE252,P0:GOTO140
250 IF P1<40 THENP1=40
260 IF P1>110 THENP1=110
270 POKE253,P1:GOTO140